home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 162
/
Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
ende - 024 -
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
37 lines
10 printchr$(147);:poke53280,14:poke646,14:poke53281,11:gosub240
20 print"[147][154] zuerst mal was schoen buntes! ";
30 forz=1to800:next:forc=11to56:poke646,c:poke53281,11:::::::poke53281,.
35 poke53280,11::::::::::poke53280,.:
40 print"[164][164][164][164][164][175][175][175][175][175][185][185][185][185][185][162][162][162][162][163][163][162][162][162][162][185][185][185][185][185][175][175][175][175][175][164][164][164][164][164]";
50 print"[145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145]";
60 print" ";;:nextc
70 forc=6to51:poke646,c:print"[157][157][145][157]";:poke53281,11:::::::poke53281,.:
80 print" ";
90 print"[157][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145]";;"[157][157][157]";
100 print" [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] ";;;:next:
110 forc=1to15:poke646,c:
120 fori=30to24step-.7
130 a=(peek(53265)and248)+(iand7):poke53265,a:
140 print"[145] ";
150 print"[145] [145] [145] [145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145] [145] [145]";;;:
155 poke53272,17:poke53280,.:poke53281,.
160 print"[145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145][166][145]<[145]>[166]";
170 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][157]";" [146][166] [146][166] [146][166] [146][166] [146][166] ";
180 print" [145][157][157][157][157][157][157]";:forx=1to25:next:next:next
185 poke53272,21:print"[147]": gosub240
190 print"[147]";:poke56325,0:poke53281,11:poke53280,11:forz=0to5
195 print"aber jetzt...[145] ":
200 print" [144][164][164][164][164][156][175][175][175][175][175][175][175][185][185][185][185][129][185][185][185][158][162][162][162][153][162][162][154][162][162][162][162] [218] e n d e [218] [146] [145]";:
210 next:poke646,peek(53281):poke56325,58
220 wait197,63:printtab(68)"lukian":
230 forz=1to2000:next:sys64738
240 l=54296:s1=54273:s2=54276:s3=54277:s4=54278:s5=54287
250 fori=54272to54295:pokei,0:next
260 pokel,15:pokes3,14:pokes4,3:pokes2,21
270 ford=1to1:n=11:forx=3to7:s6=54272
280 m=33:pokes1,n:pokel,0:
290 fory=18to4:pokel,15:pokes5,m:pokel,0
300 m=36.3:n=12.1^.2:pokel,15:
310 next:next:next:pokes4,15:
320 forz=8to35 step.12:pokel,z*5:next:pokel,0 :return